perm filename NREVER.LAP[TIM,LSP]2 blob
sn#702193 filedate 1983-03-04 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00029 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002
C00004 00003
C00007 00004
C00009 00005
C00011 00006
C00013 00007
C00015 00008
C00017 00009
C00019 00010
C00021 00011
C00023 00012
C00025 00013
C00035 00014
C00045 00015
C00055 00016
C00065 00017
C00075 00018
C00085 00019
C00095 00020
C00105 00021
C00115 00022
C00125 00023
C00135 00024
C00145 00025
C00155 00026
C00165 00027
C00175 00028
C00185 00029
C00186 ENDMK
C⊗;
'(THIS IS THE LAP FOR ((DSK (TIM LSP)) NREVER /1))
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117)
;COMPILED ON MARCH 4, 1983, AT 4:19 PM
(LAP XREVERSE SUBR)
(ARGS XREVERSE (() . 1))
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
G0001
(SKIPE 0 -2 P)
(JRST 0 G0002)
(MOVE 1 0 P)
(JRST 0 G0004)
G0002
(HRRZ 1 @ -2 P)
(MOVE 5 0 P)
(HRRM 5 @ -2 P)
(MOVEM 1 -1 P)
(JUMPN 1 G0006)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(JRST 0 G0004)
G0006
(HRRZ 2 0 1)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(HRRM 1 @ -1 P)
(MOVEM 2 0 P)
(JUMPN 2 G0011)
(MOVE 1 -1 P)
(JRST 0 G0004)
G0011
(HRRZ 3 0 2)
(MOVE 1 -1 P)
(HRRM 1 0 2)
(MOVEM 3 -2 P)
(JRST 0 G0001)
G0004
(SUB P (% 0 0 3 3))
(JRST 0 PDLNKJ)
()
(LAP GREVERSE SUBR)
(ARGS GREVERSE (() . 1))
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(JUMPE 1 G0004) 0123
(HRRZ 1 0 1) 123
(MOVEM 1 0 P) 123
(JUMPN 1 G0003) 123
G0004
(MOVE 1 -2 P) 1
(JSP T PDLNMK) 1
(JRST 0 G0002) 1
G0003
(HRRZ 1 0 1) 23
(MOVEM 1 -1 P) 23
(JUMPN 1 G0007) 23
(HLRZ 1 @ 0 P) 2
(PUSH P 1) 2
(HLRZ 1 @ -3 P) 2
(HRLM 1 @ -1 P) 2
(POP P 1) 2
(HRLM 1 @ -2 P) 2
(MOVE 1 -2 P) 2
(JSP T PDLNMK) 2
(JRST 0 G0002) 2
G0007
(HRRZ 2 0 1) 3
(JUMPN 2 G0012) 3
(HLRZ 1 0 1) 3
(PUSH P 1) 3
(HLRZ 1 @ -3 P) 3
(HRLM 1 @ -2 P) 3
(POP P 1) 3
(HRLM 1 @ -2 P) 3
(MOVE 1 -2 P) 3
(JSP T PDLNMK) 3
(JRST 0 G0002) 3
G0012
(MOVE 1 -2 P)
(JSP T PDLNMK)
(PUSH P 0 P)
(PUSH P -2 P)
(PUSH P -2 P)
(HRRZ 3 @ -1 P)
(PUSH P 1)
(MOVEM 3 -6 P)
G0001
(MOVE 1 -1 P)
(HRRM 1 @ -2 P)
(HRRZ 2 @ -6 P)
(MOVEM 2 -1 P)
(JUMPN 2 G0021)
(HLRZ 1 @ -6 P)
(PUSH P 1)
(HLRZ 1 @ -1 P)
(HRLM 1 @ -7 P)
(POP P 1)
(HRLM 1 @ 0 P)
(MOVE 1 -2 P)
(HRRM 1 @ 0 P)
(MOVE 1 -6 P)
(JSP T PDLNMK)
(HRRM 1 @ -3 P)
(MOVE 1 0 P)
(JRST 0 G0026)
G0021
(MOVE 1 -2 P)
(HRRM 1 @ -6 P)
(HRRZ 3 0 2)
(MOVEM 3 -2 P)
(JUMPN 3 G0028)
(HLRZ 1 0 2)
(PUSH P 1)
(HLRZ 1 @ -1 P)
(HRLM 1 0 2)
(POP P 1)
(HRLM 1 @ 0 P)
(MOVE 1 -6 P)
(JSP T PDLNMK)
(HRRM 1 @ 0 P)
(HRRM 2 @ -3 P)
(MOVE 1 0 P)
(JRST 0 G0026)
G0028
(MOVE 1 -6 P)
(JSP T PDLNMK)
(HRRM 1 0 2)
(HRRZ 4 0 3)
(MOVEM 4 -6 P)
(JUMPN 4 G0001)
(HLRZ 1 0 3)
(PUSH P 1)
(HLRZ 1 @ -1 P)
(HRLM 1 0 3)
(POP P 1)
(HRLM 1 @ 0 P)
(HRRM 2 @ 0 P)
(HRRM 3 @ -3 P)
(MOVE 1 0 P)
G0026
(SUB P (% 0 0 4 4))
G0002
(SUB P (% 0 0 3 3)) 0123
(POPJ P) 0123
()
(LAP KREVERSE SUBR)
(ARGS KREVERSE (() . 1))
(PUSH P 1)
(PUSH P (% 0 0 '() ))
(PUSH P (% 0 0 '() ))
(JUMPE 1 G0003) 0123
G0001
(HRRZ 1 @ -2 P) 123
(MOVE 5 0 P) 123
(HRRM 5 @ -2 P) 123
(MOVEM 1 -1 P) 123
(JUMPN 1 G0005) 123
(MOVE 1 -2 P) 1
(JSP T PDLNMK) 1
(JRST 0 G0008) 1
G0005
(HRRZ 2 0 1) 23
(MOVE 1 -2 P) 23
(JSP T PDLNMK) 23
(HRRM 1 @ -1 P) 23
(MOVEM 2 0 P) 23
(JUMPN 2 G0011) 23
(MOVE 1 -1 P) 2
(JRST 0 G0008) 2
G0011
(HRRZ 3 0 2) 3
(MOVE 1 -1 P) 3
(HRRM 1 0 2) 3
(MOVEM 3 -2 P) 3
(JUMPN 3 G0001) 3
(MOVEI 1 0 2) 3
(JRST 0 G0008) 3
G0003
(MOVEI 1 '() ) 0
G0008
(SUB P (% 0 0 3 3)) 0123
(JRST 0 PDLNKJ) 0123
()
(LAP FASTER-GOOD-NREVERSE SUBR)
(ARGS FASTER-GOOD-NREVERSE (() . 1))
(PUSH P 1)
(JUMPE 1 G0004)
(HRRZ 2 0 1)
(JUMPN 2 G0003)
G0004
(MOVE 1 0 P)
(JSP T PDLNMK)
(JRST 0 G0002)
G0003
(HRRZ 3 0 1)
(HRRZ 3 0 3)
(JUMPE 3 G0008)
(HRRZ 4 0 3)
(JUMPN 4 G0007)
G0008
(CALL 1 'LAST)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 'LAST)
(PUSH P 1)
(HLRZ 1 @ -2 P)
(HRLM 1 @ 0 P)
(MOVE 1 -1 P)
(HRLM 1 @ -2 P)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(SUB P (% 0 0 2 2))
(JRST 0 G0002)
G0007
(HRRZ 5 0 1)
(HRRZ 1 0 5)
(HRRZ 2 0 1)
(PUSH P 1)
(PUSH P 2)
(PUSH P 5)
G0001
(MOVE 1 0 P)
(HRRM 1 @ -2 P)
(HRRZ 2 @ -1 P)
(JUMPE 2 G0022)
(MOVE 5 -2 P)
(MOVE 4 -1 P)
(MOVEM 2 -1 P)
(MOVEM 4 -2 P)
(MOVEM 5 0 P)
(JRST 0 G0001)
G0022
(HRRZ 3 @ -3 P)
(MOVE 1 -1 P)
(HRRM 1 0 3)
(MOVE 1 -2 P)
(HRRM 1 @ -3 P)
(HLRZ 3 @ -1 P)
(HLRZ 1 @ -3 P)
(HRLM 1 @ -1 P)
(HRLM 3 @ -3 P)
(MOVE 1 -3 P)
(JSP T PDLNMK)
(MOVEM 3 0 P)
G0030
(SUB P (% 0 0 3 3))
G0002
(SUB P (% 0 0 1 1))
(POPJ P)
()
(*RSET (NOUUO () ))
(LAP GHACK SUBR)
(ARGS GHACK (() . 2))
(PUSH FXP (% 0))
(PUSH P 1)
(PUSH P 2)
(JSP T PDLNMK)
(PUSH P (% 0 0 '() ))
(PUSH P 1)
(PUSH FXP (% 0))
G0003
(MOVE 7 @ 0 P)
(JUMPE 7 G0011)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(PUSH P 1)
G0006
(MOVE 7 @ 0 P)
(JUMPE 7 G0014)
(MOVE 1 -2 P)
(CALL 1 'GREVERSE)
(MOVE 7 @ 0 P)
(SUBI 7 1)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(MOVEM 1 -2 P)
(MOVEM 5 0 P)
(JRST 0 G0006)
G0014
(SUB P (% 0 0 1 1))
(MOVE 2 -1 P)
(MOVE 1 0 P)
(JSP T %PDLC)
(MOVE 7 @ 0 P)
(SUBI 7 1)
(MOVEM 7 -1 FXP)
(MOVEI 5 -1 FXP)
(MOVEM 1 -1 P)
(MOVEM 5 0 P)
(JRST 0 G0003)
G0011
(MOVEI 1 '() )
(SUB P (% 0 0 4 4))
(SUB FXP (% 0 0 2 2))
(POPJ P)
()
(LAP XHACK SUBR)
(ARGS XHACK (() . 2))
(PUSH FXP (% 0))
(PUSH P 1)
(PUSH P 2)
(JSP T PDLNMK)
(PUSH P (% 0 0 '() ))
(PUSH P 1)
(PUSH FXP (% 0))
G0003
(MOVE 7 @ 0 P)
(JUMPE 7 G0011)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(PUSH P 1)
G0006
(MOVE 7 @ 0 P)
(JUMPE 7 G0014)
(MOVE 1 -2 P)
(CALL 1 'XREVERSE)
(MOVE 7 @ 0 P)
(SUBI 7 1)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(MOVEM 1 -2 P)
(MOVEM 5 0 P)
(JRST 0 G0006)
G0014
(SUB P (% 0 0 1 1))
(MOVE 2 -1 P)
(MOVE 1 0 P)
(JSP T %PDLC)
(MOVE 7 @ 0 P)
(SUBI 7 1)
(MOVEM 7 -1 FXP)
(MOVEI 5 -1 FXP)
(MOVEM 1 -1 P)
(MOVEM 5 0 P)
(JRST 0 G0003)
G0011
(MOVEI 1 '() )
(SUB P (% 0 0 4 4))
(SUB FXP (% 0 0 2 2))
(POPJ P)
()
(LAP KHACK SUBR)
(ARGS KHACK (() . 2))
(PUSH FXP (% 0))
(PUSH P 1)
(PUSH P 2)
(JSP T PDLNMK)
(PUSH P (% 0 0 '() ))
(PUSH P 1)
(PUSH FXP (% 0))
G0003
(MOVE 7 @ 0 P)
(JUMPE 7 G0011)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(PUSH P 1)
G0006
(MOVE 7 @ 0 P)
(JUMPE 7 G0014)
(MOVE 1 -2 P)
(CALL 1 'KREVERSE)
(MOVE 7 @ 0 P)
(SUBI 7 1)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(MOVEM 1 -2 P)
(MOVEM 5 0 P)
(JRST 0 G0006)
G0014
(SUB P (% 0 0 1 1))
(MOVE 2 -1 P)
(MOVE 1 0 P)
(JSP T %PDLC)
(MOVE 7 @ 0 P)
(SUBI 7 1)
(MOVEM 7 -1 FXP)
(MOVEI 5 -1 FXP)
(MOVEM 1 -1 P)
(MOVEM 5 0 P)
(JRST 0 G0003)
G0011
(MOVEI 1 '() )
(SUB P (% 0 0 4 4))
(SUB FXP (% 0 0 2 2))
(POPJ P)
()
(LAP LHACK SUBR)
(ARGS LHACK (() . 2))
(PUSH FXP (% 0))
(PUSH P 1)
(PUSH P 2)
(JSP T PDLNMK)
(PUSH P (% 0 0 '() ))
(PUSH P 1)
(PUSH FXP (% 0))
G0003
(MOVE 7 @ 0 P)
(JUMPE 7 G0011)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(PUSH P 1)
G0006
(MOVE 7 @ 0 P)
(JUMPE 7 G0014)
(MOVE 1 -2 P)
(CALL 1 'FASTER-GOOD-NREVERSE)
(MOVE 7 @ 0 P)
(SUBI 7 1)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(MOVEM 1 -2 P)
(MOVEM 5 0 P)
(JRST 0 G0006)
G0014
(SUB P (% 0 0 1 1))
(MOVE 2 -1 P)
(MOVE 1 0 P)
(JSP T %PDLC)
(MOVE 7 @ 0 P)
(SUBI 7 1)
(MOVEM 7 -1 FXP)
(MOVEI 5 -1 FXP)
(MOVEM 1 -1 P)
(MOVEM 5 0 P)
(JRST 0 G0003)
G0011
(MOVEI 1 '() )
(SUB P (% 0 0 4 4))
(SUB FXP (% 0 0 2 2))
(POPJ P)
()
(LAP GHACK1 SUBR)
(ARGS GHACK1 (() . 2))
(PUSH FXP (% 0))
(PUSH P 1)
(PUSH P 2)
(JSP T PDLNMK)
(PUSH P (% 0 0 '(0 1 2 3)))
(PUSH P 1)
(PUSH FXP (% 0))
G0003
(MOVE 7 @ 0 P)
(JUMPE 7 G0011)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(PUSH P 1)
G0006
(MOVE 7 @ 0 P)
(JUMPE 7 G0014)
(MOVE 1 -2 P)
(CALL 1 'GREVERSE)
(MOVE 7 @ 0 P)
(SUBI 7 1)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(MOVEM 1 -2 P)
(MOVEM 5 0 P)
(JRST 0 G0006)
G0014
(SUB P (% 0 0 1 1))
(MOVE 2 -1 P)
(MOVE 1 0 P)
(JSP T %PDLC)
(MOVE 7 @ 0 P)
(SUBI 7 1)
(MOVEM 7 -1 FXP)
(MOVEI 5 -1 FXP)
(MOVEM 1 -1 P)
(MOVEM 5 0 P)
(JRST 0 G0003)
G0011
(MOVEI 1 '() )
(SUB P (% 0 0 4 4))
(SUB FXP (% 0 0 2 2))
(POPJ P)
()
(LAP XHACK1 SUBR)
(ARGS XHACK1 (() . 2))
(PUSH FXP (% 0))
(PUSH P 1)
(PUSH P 2)
(JSP T PDLNMK)
(PUSH P (% 0 0 '(0 1 2 3)))
(PUSH P 1)
(PUSH FXP (% 0))
G0003
(MOVE 7 @ 0 P)
(JUMPE 7 G0011)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(PUSH P 1)
G0006
(MOVE 7 @ 0 P)
(JUMPE 7 G0014)
(MOVE 1 -2 P)
(CALL 1 'XREVERSE)
(MOVE 7 @ 0 P)
(SUBI 7 1)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(MOVEM 1 -2 P)
(MOVEM 5 0 P)
(JRST 0 G0006)
G0014
(SUB P (% 0 0 1 1))
(MOVE 2 -1 P)
(MOVE 1 0 P)
(JSP T %PDLC)
(MOVE 7 @ 0 P)
(SUBI 7 1)
(MOVEM 7 -1 FXP)
(MOVEI 5 -1 FXP)
(MOVEM 1 -1 P)
(MOVEM 5 0 P)
(JRST 0 G0003)
G0011
(MOVEI 1 '() )
(SUB P (% 0 0 4 4))
(SUB FXP (% 0 0 2 2))
(POPJ P)
()
(LAP NHACK SUBR)
(ARGS NHACK (() . 2))
(PUSH FXP (% 0))
(PUSH P 1)
(PUSH P 2)
(JSP T PDLNMK)
(PUSH P (% 0 0 '() ))
(PUSH P 1)
(PUSH FXP (% 0))
G0003
(MOVE 7 @ 0 P)
(JUMPE 7 G0011)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(PUSH P 1)
G0006
(MOVE 7 @ 0 P)
(JUMPE 7 G0014)
(MOVE 1 -2 P)
(CALL 1 'NREVERSE)
(MOVE 7 @ 0 P)
(SUBI 7 1)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(MOVEM 1 -2 P)
(MOVEM 5 0 P)
(JRST 0 G0006)
G0014
(SUB P (% 0 0 1 1))
(MOVE 2 -1 P)
(MOVE 1 0 P)
(JSP T %PDLC)
(MOVE 7 @ 0 P)
(SUBI 7 1)
(MOVEM 7 -1 FXP)
(MOVEI 5 -1 FXP)
(MOVEM 1 -1 P)
(MOVEM 5 0 P)
(JRST 0 G0003)
G0011
(MOVEI 1 '() )
(SUB P (% 0 0 4 4))
(SUB FXP (% 0 0 2 2))
(POPJ P)
()
(LAP GTIMITS SUBR)
(ARGS GTIMITS (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '11610)
(PUSH P 1)
(MOVEI 1 '24)
(PUSH P 5)
(CALL 2 'GHACK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP XTIMITS SUBR)
(ARGS XTIMITS (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '11610)
(PUSH P 1)
(MOVEI 1 '24)
(PUSH P 5)
(CALL 2 'XHACK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP NTIMITS SUBR)
(ARGS NTIMITS (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '11610)
(PUSH P 1)
(MOVEI 1 '24)
(PUSH P 5)
(CALL 2 'NHACK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP KTIMITS SUBR)
(ARGS KTIMITS (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '11610)
(PUSH P 1)
(MOVEI 1 '24)
(PUSH P 5)
(CALL 2 'KHACK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP LTIMITS SUBR)
(ARGS LTIMITS (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '11610)
(PUSH P 1)
(MOVEI 1 '24)
(PUSH P 5)
(CALL 2 'LHACK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP GTIMITL SUBR)
(ARGS GTIMITL (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '144)
(PUSH P 1)
(MOVEI 1 '764)
(PUSH P 5)
(CALL 2 'GHACK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP XTIMITL SUBR)
(ARGS XTIMITL (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '144)
(PUSH P 1)
(MOVEI 1 '764)
(PUSH P 5)
(CALL 2 'XHACK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP NTIMITL SUBR)
(ARGS NTIMITL (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '144)
(PUSH P 1)
(MOVEI 1 '764)
(PUSH P 5)
(CALL 2 'NHACK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP XTIMITL1 SUBR)
(ARGS XTIMITL1 (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '144)
(PUSH P 1)
(MOVEI 1 '764)
(PUSH P 5)
(CALL 2 'XHACK1)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP GTIMITL1 SUBR)
(ARGS GTIMITL1 (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '144)
(PUSH P 1)
(MOVEI 1 '764)
(PUSH P 5)
(CALL 2 'GHACK1)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP XTIMITL SUBR)
(ARGS XTIMITL (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '144)
(PUSH P 1)
(MOVEI 1 '764)
(PUSH P 5)
(CALL 2 'XHACK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP NTIMITL SUBR)
(ARGS NTIMITL (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '144)
(PUSH P 1)
(MOVEI 1 '764)
(PUSH P 5)
(CALL 2 'NHACK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP KTIMITL SUBR)
(ARGS KTIMITL (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '144)
(PUSH P 1)
(MOVEI 1 '764)
(PUSH P 5)
(CALL 2 'KHACK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP LTIMITL SUBR)
(ARGS LTIMITL (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '144)
(PUSH P 1)
(MOVEI 1 '764)
(PUSH P 5)
(CALL 2 'LHACK)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP XTIMITL1 SUBR)
(ARGS XTIMITL1 (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '144)
(PUSH P 1)
(MOVEI 1 '764)
(PUSH P 5)
(CALL 2 'XHACK1)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()
(LAP GTIMITL1 SUBR)
(ARGS GTIMITL1 (() . 0))
(JSP T (0PUSH -5))
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |T↑)↑-↑)↑.↑' ↑0↑%↑2↑&↑//↑2↑-↑%↑$ ↑//↑. !|))
(MOVEI 1 '(DATE))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI 1 '(DOW))
(CALL 17 'STATUS)
(CALL 1 'EXPLODEN)
(PUSH P 1)
(MOVEI T G0018)
(PUSH P T)
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(MOVEI 1 '/a)
(CALL 1 'EXPLODEN)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVEI 1 'A)
(CALL 1 'EXPLODEN)
(MOVE 7 @ 0 P)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(SUB 7 10)
(MOVEM 7 0 FXP)
(MOVEI 5 0 FXP)
(PUSH P (% 0 0 '() ))
(PUSH P 5)
G0004
(SKIPE 0 -3 P)
(JRST 0 G0026)
(MOVE 1 -1 P)
(CALL 1 'NREVERSE)
(JRST 0 G0029)
G0026
(MOVE 7 @ 0 P)
(HLRZ 10 @ -3 P)
(MOVE 10 0 10)
(ADD 7 10)
(MOVE 2 -1 P)
(JSP T FXCONS)
(JSP T %CONS)
(HRRZ 2 @ -3 P)
(MOVEM 1 -1 P)
(MOVEM 2 -3 P)
(JRST 0 G0004)
G0029
(SUB P (% 0 0 4 4))
(POP P 2)
(JSP T %XCONS)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(PUSH P 1)
(PUSH P (% 0 0 '(| |)))
(HRRZ 7 @ -4 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HRRZ 7 @ -6 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(//)))
(HLRZ 7 @ -10 P)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 7)
(JCALL 16 'APPEND)
G0018
(CALL 1 'IMPLODE)
(SUB P (% 0 0 2 2))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT | ↑!↑4 !|))
(MOVEI 1 '(DAYTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(MOVEI T G0076)
(PUSH P T)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -3 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(PUSH P (% 0 0 '(:)))
(HRRZ 7 @ -5 P)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 0 FXP)
(IDIVI 7 12)
(HLRZ 10 0 1)
(MOVE 10 0 10)
(ADD 7 10)
(MOVEI 1 '/0)
(PUSH FXP 7)
(CALL 1 'EXPLODEN)
(MOVE 7 -1 FXP)
(IDIVI 7 12)
(HLRZ 7 0 1)
(MOVE 7 0 7)
(ADD 7 10)
(JSP T FXCONS)
(JSP T %NCONS)
(MOVEI 2 0 FXP)
(JSP T %PDLXC)
(SUB FXP (% 0 0 2 2))
(PUSH P 1)
(MOVNI T 5)
(JCALL 16 'APPEND)
G0076
(CALL 1 'IMPLODE)
(SUB P (% 0 0 1 1))
(CALL 1 '*PRINC)
(STRT 0 (% SIXBIT |.!|))
(NCALL 0 'RUNTIME)
(MOVEM 7 -4 FXP)
(CALL 0 'DTIME)
(PUSH P 1)
(CALL 0 'TTIME)
(PUSH P 1)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(PUSH P 1)
(CALL 0 'LOADAV)
(MOVEI 5 -4 FXP)
(PUSH P (% 0 0 '0))
(MOVEI 2 '144)
(PUSH P 1)
(MOVEI 1 '764)
(PUSH P 5)
(CALL 2 'GHACK1)
(NCALL 0 'RUNTIME)
(SUB 7 @ 0 P)
(MOVEM 7 -3 FXP)
(MOVEI 1 -3 FXP)
(MOVEM 1 0 P)
(CALL 0 'DTIME)
(MOVE 7 0 1)
(SUB 7 @ -5 P)
(MOVEM 7 -2 FXP)
(MOVEI 1 -2 FXP)
(MOVEM 1 -5 P)
(CALL 0 'TTIME)
(MOVE 7 0 1)
(SUB 7 @ -4 P)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(MOVEM 1 -4 P)
(MOVEI 1 '(GCTIME))
(CALL 17 'STATUS)
(MOVE 7 0 1)
(SUB 7 @ -3 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEM 1 -3 P)
(CALL 0 'LOADAV)
(MOVEM 1 -2 P)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |C↑0↑5 (- GC) T↑)↑-↑% = !|))
(MOVE 7 @ 0 P)
(SUB 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |E↑,↑!↑0↑3↑%↑$ T↑)↑-↑% = !|))
(MOVE 7 @ -5 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |W↑(↑//↑,↑)↑.↑% T↑)↑-↑% = !|))
(MOVE 7 @ -4 P)
(JSP T IFLOAT)
(FDVRI 7 206740)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |GC T↑)↑-↑% = !|))
(MOVE 7 @ -3 P)
(JSP T IFLOAT)
(FDVR 7 (% 1000000.0))
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% B↑%↑&↑//↑2↑% = !|))
(MOVE 1 -1 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% A↑&↑4↑%↑2 = !|))
(MOVE 1 -2 P)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(STRT 0 (% SIXBIT |A↑6↑%↑2↑!↑'↑% L↑//↑!↑$ A↑6↑%↑2↑!↑'↑% = !|))
(MOVE 7 @ -2 P)
(FADR 7 @ -1 P)
(FSC 7 -1)
(PUSH FLP 7)
(MOVEI 1 0 FLP)
(CALL 1 '*PRINC)
(CALL 0 '*TERPRI)
(SUB P (% 0 0 6 6))
(SUB FLP (% 0 0 5 5))
(SUB FXP (% 0 0 5 5))
(POPJ P)
()